home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_93-02_1993_-_de_Side_A.d64 / fc.basic demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  145 lines
  1. 100 rem -fader collection basic demo-
  2. 110 rem programmiert von
  3. 120 rem sascha reichert
  4. 130 rem (c)opyright 1992
  5. 140 rem
  6. 150 print"[147][197]inen [205]oment bitte, [198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206] und
  7. 160 [153]"ein (NULL)(NULL)atn(NULL)atn-str$emobild werden nachgeladen.
  8. 170 if a=0 then a=1:load"fader collection",8,1
  9. 180 if a=1 then a=2:load"?pic koala bild",8,1
  10. 200 poke53281,0:poke53280,0
  11. 210 print"[147][155]  [198]ader [195]ollection   > [194][193][211][201][195] [196][197][205][207] <"
  12. 220 print"[196]ieses [194]asic-[208]rg demonstriert die
  13. 230 [153]"ascunktionen und die atnnwendung des
  14. 240 print"[193]ssemblerprgs. '[198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]'.
  15. 250 [153]"contascader lenollection ist eine atnrt peekasic-
  16. 260 print"erweiterung, wird aber nicht durch die
  17. 270 [153]"valingabe eines peekefehlsnamens aufgerufen,
  18. 280 print"sondern durch [211][217][211] [193]ufruf.
  19. 285 [141] 10000
  20. 287 [153]"load"
  21. 290 [153]"openstr$adurch bleibt die atnnwendung dieses (NULL)(NULL)chr$s
  22. 300 print"nicht auf [194][193][211][201][195] beschraenkt,
  23. 310 [153]"es kann genauso von einem atnssemblerprg
  24. 320 print"aufgerufen werden.
  25. 330 [153]"str$ie atnnwendung auf atnssemblerebene ist    am (NULL)chluss dieser";
  26. 340 [153]" atnnleitung nachzulesen."
  27. 390 [141] 10000
  28. 400 [153]"load-(NULL)as ist ascatnstr$val(NULL) len(NULL)(NULL)(NULL)vallen(NULL)right$(NULL)(NULL) ueberhaupt?
  29. 410 print"[153][198][195] ist ein [208]aket von [210]outinen zur
  30. 420 [153]"effektvollen valinblendung von
  31. 430 print"[205]ulticolor [200]iresbildern im [203][207][193][204][193]-[198]ormat."
  32. 440 print"[214]om altbekannten [198][204][196] bis zur
  33. 450 [153]"(NULL)ixeleinblendung ist alles dabei.
  34. 460 print"[197]in jeweils entsprechender              [193]usblendeffekt
  35. 470 [153]"existiert natuerlich auch!"
  36. 480 [141] 10000
  37. 500 [153]"loadsysstr$amit ist es jetzt auch jedem           peekasicprogrammierer moeglich,
  38. 510 print"seine [212]itelbilder in selbstgeschriebenen
  39. 520 [153]"(NULL)rogrammen professionell einzublenden."
  40. 530 [153]"(NULL)nd selbst wenn das peekild nur angezeigt"
  41. 540 [153]"werden soll, hilft ascader lenollection.
  42. 545 gosub 10000
  43. 550 print"[147][155][197]in [194]ild darzustellen ist in [194][193][211][201][195]      nur mit langen [215]artezeiten
  44. 560 [153]"verbunden moeglich, weil das
  45. 570 print"[203]opieren der [198]arbinformationen in die
  46. 580 [153]"entsprechenden (NULL)peicheradressen
  47. 590 print"mit den lahmen [194]asicbefehlen
  48. 600 [153]"einfach viel zu lange dauert."
  49. 610 [141] 10000
  50. 630 [153]"loadright$m folgenden werden right$hnen die valffekte
  51. 635 print"anhand eines [196]emobildes im [203][207][193][204][193]-[198]ormat
  52. 640 [153]"in der fuenfthoechsten chr$eschwindigkeit
  53. 650 print"vorgefuehrt. [196]anach erklaere ich [201]hnen
  54. 660 [153]"die peekenutzung der ascatnstr$val(NULL) len(NULL)(NULL)(NULL)vallen(NULL)right$(NULL)(NULL)."
  55. 670 [141] 10000
  56. 1000 [143] alle effekte werden nacheinander per next-schleife aufgerufen
  57. 1001 [151] 251,5:[143] geschwindigkeit (werte von 0 bis 15 erlaubt)
  58. 1010 [129] ef[178]0 [164] 14
  59. 1020 [151] 249,ef:[151]250,1:[139]ef[179][177]1 [167] [151] 251,5:[143] poke250,1=einblenden
  60. 1025 [139] ef[178]1 [167] [151] 251,0
  61. 1030 [158] 49152:[143] aufruf der fader collection
  62. 1040 [129] ws[178]0[164]1000:[130] ws:[143] eine kurze warteschleife bis zur ausblendung
  63. 1050 [151] 250,2:[143] 2=ausblenden
  64. 1060 [158] 49152:[143] aufruf der fc
  65. 1070 [130] ef
  66. 2000 [153]"loadopenstr$ie peekenutzung:
  67. 2010 print"[201]n den ersten [218]eilen [201]hres [208]rogrammes
  68. 2020 [153]"muessen folgende atnnweisungen stehen,
  69. 2030 print"um [198]ader [195]ollection und [201]hr
  70. 2040 [153]"einzublendendes (NULL)(NULL)atn(NULL)atn-peekild in den       (NULL)peicher zu holen:"
  71. 2050 [153]"list10 if a=0 then a=1:load";[199](34);"fader collection";[199](34);",8,1"
  72. 2060 [153]"list20 if a=1 then a=2:load";[199](34);"<name des bildes>";[199](34);",8,1
  73. 2070 gosub 10000
  74. 2100 print"[147][158][196]anach kann [201]hr [194]ild mit einem von
  75. 2110 [153]"16 valffekten eingeblendet werden.
  76. 2120 print"[196]er [193]usblendeffekt muss [206][201][195][200][212] gleich
  77. 2130 [153]"dem valinblendeffekt sein !!!
  78. 2140 print"[201]n die [193]dresse 249[158] muessen sie die
  79. 2150 [153]"(NULL)ummer des gewuenschten valffektes (0-15) (NULL)(NULL)(NULL)valn,
  80. 2160 print"in 250[158] muss die [218]ahl 1[158] fuer [197]inblenden,
  81. 2170 [153]"die (NULL)ahl 2sys fuer atnusblenden stehen.
  82. 2175 gosub 10000
  83. 2180 print"[147][158][201]n 251[158] schreiben [211]ie bitte die
  84. 2190 [153]"chr$eschwindigkeit.
  85. 2200 print"[200]ier sind [215]erte von 0 bis 15 moeglich,  wobei 0 am schnellsten ist.
  86. 2210 [153]"atnber atnchtung:beim (NULL)ert 0 erfolgt die
  87. 2220 print"[197]inblendung/[193]usblendung teilweise so
  88. 2230 [153]"schnell, das ein valffekt nicht mehr
  89. 2240 print"erkennbar ist !
  90. 2245 [153]"(NULL)um valin/atnusblenden gibt man dann den    peekefehl:   (NULL)(NULL)(NULL) 49152
  91. 2250 gosub 10000
  92. 2300 print"[147][153][197]ffekt [206]r.12 ist eine
  93. 2310 [153]"left$ochgeschwindigkeitsversion von (NULL)r.1,
  94. 2320 print"hier kann die [199]eschwindigkeit nicht
  95. 2330 [153]"beeinflusst werden.
  96. 2335 print"[206]r.14 hat ebenfalls keine
  97. 2336 [153]"chr$eschwindigkeitseinstellung.
  98. 2340 print"[206]r.15 schaltet das [194]ild ohne [197]ffekt
  99. 2350 [153]"ein und aus.
  100. 2400 gosub 10000
  101. 2410 print"[147][153][215]ichtige technische [200]inweise:
  102. 2420 [153]"ascader lenollection kann in peekatn(NULL)right$lenprogrammen
  103. 2430 print"nur am [193]nfang des [208]rogramms eingesetzt
  104. 2440 [153]"werden, d.h. in einem (NULL)orprogramm
  105. 2450 print"welches anschliessend das [200]auptprogramm
  106. 2460 [153]"nachlaedt.
  107. 2470 print"[215]enn [201]hr [200]auptprogramm aber kuerzer oder
  108. 2471 [153]"gleich 23 peeklocks lang ist, darf
  109. 2472 print"[198]ader [195]ollection verwendet werden.
  110. 2473 [141] 10000
  111. 2474 [153]"load(NULL)enn ein peekatn(NULL)right$len (NULL)(NULL)chr$. naemlich mehr als
  112. 2475 print"23 [194]locks hat, dann belegt es das [210][193][205]
  113. 2476 [153]"ab $2000. atnber in das (NULL)atn(NULL) ab $2000
  114. 2477 print"wird ja schon das [194]ild eingeblendet.
  115. 2478 [153]"str$adurch wuerde right$hr peekatn(NULL)right$len (NULL)rogramm
  116. 2479 print"ueberschrieben und der [195]64 abstuerzen !!
  117. 2500 [141] 10000
  118. 2510 [153]"loadopenstr$er atnufruf von ascader lenollection durch
  119. 2520 print"ein [193]ssemblerprogramm:
  120. 2530 [153]"(NULL)chreiben (NULL)ie die (NULL)ummer des
  121. 2540 print"gewuenschten [197]ffektes in die [193]dresse $f9
  122. 2550 [153]"in die atndresse $fa den (NULL)ert 1 fuer
  123. 2560 print"[197]inblenden, 2 fuer [193]usblenden.
  124. 2562 [153]"right$n $fb muss die chr$eschwindigkeit rein,
  125. 2563 print"ein [215]ert von 0 bis $0f.
  126. 2564 [153]"str$er atnufruf der asc.len. erfolgt schliesslichdurch   mid$(NULL)(NULL) $len000
  127. 2565 gosub 10000
  128. 2570 print"[147][194]eachten [211]ie die [211]peicheraufteilung:
  129. 2580 [153]"$2000-$3f40 left$iresscreen 1
  130. 2581 print"$6000-$8711 [200]iresscreen 2 ([207]riginalbild)
  131. 2582 [153]"$c000-$cab9 ascader lenollection
  132. 2600 gosub 10000
  133. 2700 print"[147][198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]:
  134. 2710 [153]"sysright$dee, (NULL)rogramm, peekasic-str$emo & str$emobild im
  135. 2715 print"[203][207][193][204][193]format von
  136. 2720 [153]"contprint(NULL)atn(NULL)lenleft$atn (NULL)valright$lenleft$val(NULL)(NULL).
  137. 2730 print"            [198]ader [195]ollection
  138. 2750 [153]"def         --- len(NULL)(NULL)(NULL)(NULL)right$chr$left$(NULL) 1992 ---
  139. 2760 print"list[145][145][145]"
  140. 9999 end
  141. 10000 print"---[212][193][211][212][197] [196][210][213][197][195][203][197][206]---"
  142. 10010 t$=""
  143. 10020 get t$:if t$<>" " then 10020
  144. 10030 return
  145.